home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / prolog_2.zip / PUZZLES.ZIP / ANS.PRO next >
Text File  |  1986-07-20  |  512b  |  21 lines
  1.  
  2. answer(A) :- ratom( X ), conv( X, A ), !.
  3.  
  4. conv(X,I) :- atoi( X, I ), 0 < I, I < 4, !.
  5. conv(X,A) :- name( X, String ), valid_resp( String, A ), !.
  6.  
  7.  
  8. valid_resp( [H|T], A ) :- type_ans( H, A ).
  9.  
  10. type_ans( X, A ) :- ([X] = "h"; [X] = "H"), A = help.
  11. type_ans( X, A ) :- ([X] = "w"; [X] = "W"), A = why.
  12.  
  13. valid_resp( [], A ) :-
  14.     print('\nPlease try to give me a H,W, or number for an answer.'),
  15.     answer( A ), !.
  16.  
  17. valid_resp( [H|T], A ) :- valid_resp( T, A ).
  18.  
  19.  
  20.  
  21.